home *** CD-ROM | disk | FTP | other *** search
/ Micom Basic 1995 October / CD [BM9510].bin / basic / bp_kouza / f_basic / list2.bas < prev    next >
Encoding:
BASIC Source File  |  1995-08-11  |  1.6 KB  |  56 lines
  1. 100 SCREEN@ 0
  2. 110 WIDTH 80,25
  3. 120 CONSOLE 0,25,0
  4. 130 CLS 0
  5. 140 DIM RR(1),ML(1),MM(1),V(1),NEWRR(1)   'ô±é┬é╠ÉUéΦÄqé╠╝╨¡┌░─é╠é╜é▀é╠özù±ò╧Éö
  6. 150 DT=.02!
  7. 160 G=9.8!
  8. 170 WHILE -1                                                        'û│î└âïü[âv
  9. 180  CLS 0
  10. 190  LINE(0,0)-(639,100),PSET,6,B
  11. 200  TP=0
  12. 210  FOR I=0 TO 1
  13. 220   LOCATE I*40,7
  14. 230   INPUT "é¿éαéΦé╠Ådé│";MM(I)
  15. 240   LOCATE I*40,8
  16. 250   INPUT "é╨éαé╠Æ╖é│";ML(I)
  17. 260   LOCATE I*40,9
  18. 270   INPUT "Åëè·æ¼ôx";V(I)
  19. 280   RR(I)=0
  20. 290  NEXT
  21. 300  F=0
  22. 310  WHILE F=0
  23. 320   GOSUB *MOVEFURIKO
  24. 330   C=0
  25. 340   GOSUB *PUTFURIKO
  26. 350   C=7
  27. 360   RR(0)=NEWRR(0)
  28. 370   RR(1)=NEWRR(1)
  29. 380   GOSUB *PUTFURIKO
  30. 390   GOSUB *PUTGRAPH
  31. 400   IF INKEY$<>"" THEN F=1
  32. 410  WEND
  33. 420 WEND
  34. 430 END
  35. 440 *PUTFURIKO                                          'ëµû╩é╔ÉUéΦÄqé≡ò\Īé╖éΘ
  36. 450 FOR I=0 TO 1
  37. 460  LINE(160+I*320,100)-(160+I*320+ML(I)*SIN(RR(I)),ML(I)*COS(RR(I))+100),PSET,C
  38. 470  CIRCLE(160+I*320+(ML(I)+30)*SIN(RR(I)),(ML(I)+30)*COS(RR(I))+100),30,C
  39. 480 NEXT
  40. 490 RETURN
  41. 500 *MOVEFURIKO
  42. 510 FOR I=0 TO 1
  43. 520  FG=MM(I)*G                                     'é¿éαéΦé╔é⌐é⌐éΘÅdù═é≡ïüé▀éΘ
  44. 530  FG2=-FG*SIN(RR(I))                         'Äàé╞ÉéÆ╝ò√îⁿé╔é⌐é⌐éΘù═é≡ïüé▀éΘ
  45. 540  A=FG2/MM(I)                                          'ù═é⌐éτë┴æ¼ôxé≡ïüé▀éΘ
  46. 550  V(I)=V(I)+A*DT                             'æ¼ôxé≡ë┴æ¼ôxé╔ë₧é╢é─ò╧ë╗é│é╣éΘ
  47. 560  NEWRR(I)=RR(I)+V(I)/ML(I)*DT                       'ê┌ô«ù╩é≡ò╧ë╗èpôxé╔ò╧è╖
  48. 570 NEXT
  49. 580 RETURN
  50. 590 *PUTGRAPH
  51. 600 TP=TP+.2!
  52. 610 IF TP>638 THEN TP=1:LINE(1,1)-(638,99),PSET,0,BF
  53. 620 PSET(TP,50-RR(0)*20),1
  54. 630 PSET(TP,50-RR(1)*20),2
  55. 640 RETURN
  56.